home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1997 #1
/
Amiga Plus CD - 1997 - No. 01.iso
/
pd
/
daten
/
easycalc
/
easyrexx
/
bounce.erex
next >
Wrap
Text File
|
1986-06-08
|
534b
|
49 lines
/* EasyCalc 2.0 Arexx Script */
options results
'getresponse "This script makes the cursor bounce around the screen" "_Begin"'
quit = 0
dx=1
dy=1
getmincol
minx = result
getminrow
miny = result
getmaxrow
maxy = result
getmaxcol
maxx = result
cx = minx
cy = miny
easytofront
do while quit < 100
movecursor cx cy
cx = cx + dx
cy = cy + dy
if (cx = maxx - 1) then
dx = -dx
if (cx = minx ) then
dx = -dx
if (cy = maxy - 1) then
dy = -dy
if (cy = miny ) then
dy = -dy
quit = quit + 1
end